PC Shareware 1997 February/PC Shareware 1997-02.iso/programy/pcbaby/_setup.1/PCBaby4.exe/0/RCDATA/TPREVIEWFORM/TPREVIEWFORM.txt

Text File | 1996-10-21 | 10KB | 428 lines

object PreviewForm: TPreviewForm
  Left = 78
  Top = 111
  BorderStyle = bsDialog
  Caption = 'Birth Announcement Preview'
  ClientHeight = 477
  ClientWidth = 658
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  OnActivate = FormActivate
  TextHeight = 16
  object Panel1: TPanel
    Left = 8
    Top = 8
    Width = 513
    Height = 457
    BevelWidth = 3
    Color = clWindow
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 16
      Width = 314
      Height = 22
      Caption = 'Birth Announcement - Sample Report'
      Font.Color = clNavy
      Font.Height = -19
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Image1: TImage
      Left = 392
      Top = 8
      Width = 105
      Height = 81
      Picture.Data = {<image000.bmp>}
    end
    object Label2: TLabel
      Left = 440
      Top = 64
      Width = 64
      Height = 13
      Caption = 'by PC Baby 3'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Announcing: TLabel
      Left = 0
      Top = 112
      Width = 513
      Height = 25
      Alignment = taCenter
      AutoSize = False
      Caption = 'Announcing the Arrival of'
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Label3: TLabel
      Left = 128
      Top = 168
      Width = 50
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Arrived:'
    end
    object Label4: TLabel
      Left = 129
      Top = 208
      Width = 49
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Height:'
    end
    object Label5: TLabel
      Left = 128
      Top = 232
      Width = 50
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Weight:'
    end
    object Label6: TLabel
      Left = 145
      Top = 256
      Width = 33
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Hair:'
    end
    object Label7: TLabel
      Left = 137
      Top = 280
      Width = 41
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Eyes:'
    end
    object Label8: TLabel
      Left = 88
      Top = 320
      Width = 90
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Hospital:'
    end
    object Label9: TLabel
      Left = 80
      Top = 344
      Width = 98
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'City:'
    end
    object Label10: TLabel
      Left = 104
      Top = 368
      Width = 74
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'State:'
    end
    object Label11: TLabel
      Left = 0
      Top = 408
      Width = 513
      Height = 13
      Alignment = taCenter
      AutoSize = False
      Caption =
        'Report generated by PC Baby 3, by Campbell Software �1992-96, Al' +
        'l Rights Reserved'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Date: TLabel
      Left = 184
      Top = 168
      Width = 84
      Height = 16
      Caption = 'Date of Arrival'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Time: TLabel
      Left = 184
      Top = 184
      Width = 84
      Height = 16
      Caption = 'Date of Arrival'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Height: TLabel
      Left = 184
      Top = 208
      Width = 84
      Height = 16
      Caption = 'Date of Arrival'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Weight: TLabel
      Left = 184
      Top = 232
      Width = 84
      Height = 16
      Caption = 'Date of Arrival'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Hair: TLabel
      Left = 184
      Top = 256
      Width = 84
      Height = 16
      Caption = 'Date of Arrival'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Eyes: TLabel
      Left = 184
      Top = 280
      Width = 84
      Height = 16
      Caption = 'Date of Arrival'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Hospital: TLabel
      Left = 184
      Top = 320
      Width = 84
      Height = 16
      Caption = 'Date of Arrival'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object City: TLabel
      Left = 184
      Top = 344
      Width = 84
      Height = 16
      Caption = 'Date of Arrival'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object State: TLabel
      Left = 184
      Top = 368
      Width = 84
      Height = 16
      Caption = 'Date of Arrival'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
  end
  object OKBtn: TBitBtn
    Left = 552
    Top = 83
    Width = 93
    Height = 31
    Caption = 'Close'
    Default = True
    Font.Color = clGreen
    Font.Height = -19
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ModalResult = 1
    ParentFont = False
    TabOrder = 1
    OnClick = OKBtnClick
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000CE0E0000D80E00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      5555555555555555555555555205555555555555222055555555555522205555
      5555555222220555555555222222055555555722052220555555720555522055
      5555555555522205555555555555220555555555555552205555555555555572
      0555555555555557205555555555555552205555555555555555}
    Margin = 8
    Spacing = -1
  end
  object ChildTable: TTable
    TableName = 'CHILD.DB'
    Left = 584
    Top = 8
    object ChildTableFirstName: TStringField
      FieldName = 'FirstName'
      Size = 50
    end
    object ChildTableMiddleName: TStringField
      FieldName = 'MiddleName'
      Size = 50
    end
    object ChildTableLastName: TStringField
      FieldName = 'LastName'
      Size = 50
    end
    object ChildTableBDateDay: TStringField
      FieldName = 'BDateDay'
      Size = 5
    end
    object ChildTableBirthDay: TStringField
      FieldName = 'BirthDay'
      Size = 15
    end
    object ChildTableBirthHt: TStringField
      FieldName = 'BirthHt'
      Size = 4
    end
    object ChildTablePhysician: TStringField
      FieldName = 'Physician'
      Size = 50
    end
    object ChildTablePediatrician: TStringField
      FieldName = 'Pediatrician'
      Size = 50
    end
    object ChildTableHospital: TStringField
      FieldName = 'Hospital'
      Size = 50
    end
    object ChildTableBirthCity: TStringField
      FieldName = 'BirthCity'
      Size = 50
    end
    object ChildTableBirthState: TStringField
      FieldName = 'BirthState'
      Size = 2
    end
    object ChildTableBirthCountry: TStringField
      FieldName = 'BirthCountry'
      Size = 50
    end
    object ChildTableH1: TStringField
      FieldName = 'H1'
      Size = 155
    end
    object ChildTableH2: TStringField
      FieldName = 'H2'
      Size = 155
    end
    object ChildTableH3: TStringField
      FieldName = 'H3'
      Size = 155
    end
    object ChildTableH4: TStringField
      FieldName = 'H4'
      Size = 155
    end
    object ChildTableH5: TStringField
      FieldName = 'H5'
      Size = 155
    end
    object ChildTableH6: TStringField
      FieldName = 'H6'
      Size = 155
    end
    object ChildTableH7: TStringField
      FieldName = 'H7'
      Size = 155
    end
    object ChildTableHair: TStringField
      FieldName = 'Hair'
      Size = 25
    end
    object ChildTableEyes: TStringField
      FieldName = 'Eyes'
      Size = 25
    end
    object ChildTableBDayMonth: TStringField
      FieldName = 'BDayMonth'
      Size = 5
    end
    object ChildTableBDayYear: TStringField
      FieldName = 'BDayYear'
      Size = 10
    end
    object ChildTableBTimeHr: TStringField
      FieldName = 'BTimeHr'
      Size = 5
    end
    object ChildTableBTimeMin: TStringField
      FieldName = 'BTimeMin'
      Size = 5
    end
    object ChildTableBTimeAmPm: TStringField
      FieldName = 'BTimeAmPm'
      Size = 5
    end
    object ChildTableAddress: TStringField
      FieldName = 'Address'
      Size = 50
    end
    object ChildTableCity: TStringField
      FieldName = 'City'
      Size = 50
    end
    object ChildTableState: TStringField
      FieldName = 'State'
    end
    object ChildTableCounty: TStringField
      FieldName = 'County'
      Size = 50
    end
    object ChildTableBirthWeightOz: TStringField
      FieldName = 'BirthWeightOz'
      Size = 3
    end
    object ChildTableBirthWeightLb: TStringField
      FieldName = 'BirthWeightLb'
      Size = 2
    end
  end
end